Mobiclic 71/MOBICLIC 71.ISO/mac/DATA/COMMUN/temp0001/00004_Script_gestion des curseurs personnalisés

Text File | 2004-12-05 | 4KB | 154 lines

-- gestion des curseurs personnalisΘs

-- curseur doigt
on doigt s
  set n = the number of member "doigtM"
  repeat with i=1 to the paramCount
    if value(param(i))<>0 then
      set the cursor of sprite param(i) to [n,n+1]
    else
      listeCurseurs param(i),n
    end if
  end repeat
end doigt

-- doigt barrΘ
on doigtBarrΘ s
  set n = the number of member "doigtBarrΘM"
  repeat with i=1 to the paramCount
    if value(param(i))<>0 then
      set the cursor of sprite param(i) to [n,n+1]
    else
      listeCurseurs param(i),n
    end if
  end repeat
end doigt

-- curseur main
on main s
  set n = the number of member "mainM"
  repeat with i=1 to the paramCount
    if value(param(i))<>0 then
      set the cursor of sprite param(i) to [n,n+1]
    else
      listeCurseurs param(i),n
    end if
  end repeat
end main

-- doigt tournΘ vers la gauche
on reviens s
  set n = the number of member "reviensM"
  repeat with i=1 to the paramCount
    if value(param(i))<>0 then
      set the cursor of sprite param(i) to [n,n+1]
    else
      listeCurseurs param(i),n
    end if
  end repeat
end reviens

-- doigt tournΘ vers la droite
on droite s
  set n = the number of member "droiteM"
  repeat with i=1 to the paramCount
    if value(param(i))<>0 then
      set the cursor of sprite param(i) to [n,n+1]
    else
      listeCurseurs param(i),n
    end if
  end repeat
end droite

-- doigt tournΘ vers le bas
on doigtBas s
  set n = the number of member "doigtBasM"
  repeat with i=1 to the paramCount
    if value(param(i))<>0 then
      set the cursor of sprite param(i) to [n,n+1]
    else
      listeCurseurs param(i),n
    end if
  end repeat
end doigtBas

-- loupe
on loupe s
  set n = the number of member "loupeM"
  repeat with i=1 to the paramCount
    if value(param(i))<>0 then
      set the cursor of sprite param(i) to [n,n+1]
    else
      listeCurseurs param(i),n
    end if
  end repeat
end loupe

-- loupe nΘgative
on loupeM s
  set n = the number of member "loupe-M"
  repeat with i=1 to the paramCount
    if value(param(i))<>0 then
      set the cursor of sprite param(i) to [n,n+1]
    else
      listeCurseurs param(i),n
    end if
  end repeat
end loupeM

-- pinceau
on pinceau s
  set n = the number of member "pinceauM"
  repeat with i=1 to the paramCount
    if value(param(i))<>0 then
      set the cursor of sprite param(i) to [n,n+1]
    else
      listeCurseurs param(i),n
    end if
  end repeat
end pinceau

-- oeil
on oeil s
  set n = the number of member "coeilM"
  repeat with i=1 to the paramCount
    if value(param(i))<>0 then
      set the cursor of sprite param(i) to [n,n+1]
    else
      listeCurseurs param(i),n
    end if
  end repeat
end oeil

-- Θquerre
on equerre s
  set n = the number of member "equerreM"
  repeat with i=1 to the paramCount
    if value(param(i))<>0 then
      set the cursor of sprite param(i) to [n,n+1]
    else
      listeCurseurs param(i),n
    end if
  end repeat
end equerre

-- suppression des curseurs
on doigtOff s
  repeat with i=1 to the paramCount
    if value(param(i))<>0 then
      set the cursor of sprite param(i) to 0
    else
      listeCurseurs param(i),0
    end if
  end repeat
end doigtOff

-- gestion d'une liste de pistes du type "[premiΦre piste]>[derniΦre piste]"
on listeCurseurs chaine,n
  set o=offset(">", chaine)
  set n1=value(char 1 to o-1 of chaine)
  set n2=value(char o+1 to length(chaine) of chaine)
  repeat with j=n1 to n2
    set the cursor of sprite j to [n,n+1]
  end repeat
end listeCurseurs